(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     78449,       1540]
NotebookOptionsPosition[     73048,       1447]
NotebookOutlinePosition[     73446,       1463]
CellTagsIndexPosition[     73403,       1460]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"**", 
    RowBox[{"*", "Set", " ", "filepath"}]}], 
   "****)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "FilePath", " ", "=", 
   "\"\</Users/patrickhulme/Dropbox/Replicate/War_and_Responsibility/Output/\
Figure_4.pdf\>\""}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.812398256571183*^9, 3.8123982565941*^9}, {
  3.945528741397551*^9, 3.945528784368137*^9}, {3.9456859168456306`*^9, 
  3.9456859185844316`*^9}},
 CellLabel->
  "In[1301]:=",ExpressionUUID->"a97abf7b-cdfc-4a81-8ac8-2e39647e2bce"],

Cell[BoxData["\<\"/Users/patrickhulme/Dropbox/Replicate/War_and_\
Responsibility/Output/Figure_4.pdf\"\>"], "Output",
 CellChangeTimes->{{3.945528755536687*^9, 3.945528765606928*^9}, 
   3.945529326917755*^9, 3.9456859365184937`*^9, 3.945950118968176*^9, 
   3.945950218757782*^9, {3.9459512093652277`*^9, 3.945951238175996*^9}, 
   3.945951270285344*^9},
 CellLabel->
  "Out[1302]=",ExpressionUUID->"d172ad9d-019a-4c11-8449-d121495e5336"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"$Assumptions", "=", 
    RowBox[{
     RowBox[{"t", ">", "0"}], " ", "&&", 
     RowBox[{"s", ">", "0"}], " ", "&&", " ", 
     RowBox[{"beta", " ", ">", "0"}], " ", "&&", " ", 
     RowBox[{"k", " ", ">", " ", "0"}], "  ", "&&", " ", 
     RowBox[{"k", "<", 
      FractionBox["beta", "t"]}], "&&", 
     RowBox[{"s", "<", 
      FractionBox[
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}], 
       RowBox[{"beta", " ", "t"}]]}]}]}], "\[IndentingNewLine]"}]}]], "Input",\

 CellChangeTimes->{{3.906833628793285*^9, 3.906833629661681*^9}, {
   3.906870227038471*^9, 3.906870230042478*^9}, {3.906870835475369*^9, 
   3.9068708360751867`*^9}, 3.906870918734144*^9, {3.906871011129862*^9, 
   3.9068710167325706`*^9}, {3.906871359521653*^9, 3.906871360430441*^9}, {
   3.906965466090609*^9, 3.906965486214314*^9}, {3.9086312740266438`*^9, 
   3.908631278727563*^9}, 3.908631932247243*^9, {3.90863198171172*^9, 
   3.908631982976346*^9}, 3.945950128160019*^9},
 CellLabel->
  "In[1303]:=",ExpressionUUID->"9343096e-8a71-443c-9610-f10a7a28083c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"t", ">", "0"}], "&&", 
  RowBox[{"s", ">", "0"}], "&&", 
  RowBox[{"beta", ">", "0"}], "&&", 
  RowBox[{"k", ">", "0"}], "&&", 
  RowBox[{"k", "<", 
   FractionBox["beta", "t"]}], "&&", 
  RowBox[{"s", "<", 
   FractionBox[
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}], 
    RowBox[{"beta", " ", "t"}]]}]}]], "Output",
 CellChangeTimes->{{3.906871368279895*^9, 3.90687137341665*^9}, 
   3.90687140956881*^9, 3.906873170081173*^9, 3.906888566195169*^9, 
   3.906888667288849*^9, 3.906888933981906*^9, 3.906889334091688*^9, 
   3.906891021070342*^9, 3.9068911373054028`*^9, 3.90689157671796*^9, 
   3.906891644402957*^9, 3.906891799732185*^9, 3.906894964666184*^9, 
   3.9068964303939238`*^9, 3.906896557276635*^9, 3.9068977839082212`*^9, 
   3.9068980464005747`*^9, 3.906898804559485*^9, 3.906899117815971*^9, 
   3.906899366796558*^9, 3.906899507834261*^9, 3.906899626540329*^9, 
   3.906965375272653*^9, 3.9069654891832523`*^9, 3.908631285076675*^9, 
   3.908631822836739*^9, 3.908631898288085*^9, {3.908631937506053*^9, 
   3.9086319476620092`*^9}, {3.90863198890699*^9, 3.908631998104568*^9}, 
   3.908632052984741*^9, 3.908632127687689*^9, 3.945504594537734*^9, 
   3.945504660675208*^9, 3.9455284710025682`*^9, 3.945528630891329*^9, 
   3.945528694002975*^9, {3.945528755562768*^9, 3.945528765637755*^9}, 
   3.945529326958371*^9, 3.9456859365449533`*^9, 3.945950130588808*^9, 
   3.945950221376987*^9, {3.94595120938067*^9, 3.94595123819823*^9}, 
   3.9459512703060427`*^9},
 CellLabel->
  "Out[1303]=",ExpressionUUID->"bf9db5bf-5fde-4c5c-9d4a-b718750469f3"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.812398301797881*^9, 3.8123983046326027`*^9}, 
   3.812398705283208*^9, {3.8146312233619137`*^9, 3.8146312533776827`*^9}, {
   3.814632175510397*^9, 3.814632254102447*^9}, 3.945504672984915*^9},
 CellLabel->
  "In[1304]:=",ExpressionUUID->"bbaeda3e-0560-40a0-9502-37223576c581"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"Node3P", " ", "=", "d"}], "\[IndentingNewLine]", 
   RowBox[{"Node6P", "=", 
    RowBox[{"p", "-", 
     RowBox[{"s", "*", "f"}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "p"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"k", "*", 
        RowBox[{"f", "/", "beta"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Node3C", " ", "=", 
    RowBox[{"beta", "*", "d"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node6C", "=", 
    RowBox[{"p", "*", "beta"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Node3S2", " ", "=", 
    RowBox[{"(", 
     RowBox[{"1", "-", "d"}], ")"}]}], "\[IndentingNewLine]", 
   RowBox[{"Node6S2", "=", 
    RowBox[{"1", "-", "p", "-", "c"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.8123983153939257`*^9, 3.812398703602755*^9, {3.8124188575789623`*^9, 
   3.8124190637747803`*^9}, {3.812419128439455*^9, 3.812419132766797*^9}, {
   3.812419170823373*^9, 3.812419180992365*^9}, {3.8124192219736156`*^9, 
   3.81241929731285*^9}, {3.812419331481042*^9, 3.812419505562839*^9}, {
   3.812419551947742*^9, 3.812419611058012*^9}, {3.812419657198216*^9, 
   3.812419703437456*^9}, {3.8145660704131193`*^9, 3.814566078263488*^9}, {
   3.814627959155013*^9, 3.814628056503428*^9}, {3.814628648050104*^9, 
   3.814628650694523*^9}, 3.814656303770749*^9, {3.814724254233762*^9, 
   3.81472425515473*^9}, {3.859213578796434*^9, 3.859213581724326*^9}, {
   3.8629698684876966`*^9, 3.8629698711370564`*^9}, {3.863145545053953*^9, 
   3.863145550686697*^9}, 3.9064930517552*^9, {3.906965363848728*^9, 
   3.906965370513631*^9}, {3.9459501650598373`*^9, 3.945950165913383*^9}, {
   3.9459501967879047`*^9, 3.945950211998468*^9}},
 CellLabel->
  "In[1305]:=",ExpressionUUID->"a1da13ca-4282-4846-bea1-3d36af441041"],

Cell[BoxData["d"], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906888568311233*^9, 3.906888669414132*^9, 
   3.906888934018712*^9, 3.906889335996728*^9, 3.906891022934751*^9, 
   3.90689113732183*^9, 3.906891576734345*^9, 3.906891646251997*^9, 
   3.906891799747628*^9, 3.9068949646810637`*^9, 3.906896432211864*^9, 
   3.906896557294413*^9, 3.906897783934716*^9, 3.906898046423236*^9, 
   3.906898804581724*^9, 3.906899117835902*^9, 3.9068993668137827`*^9, 
   3.9068995078549643`*^9, 3.906899626552541*^9, 3.906965376545188*^9, {
   3.906965471126281*^9, 3.90696549128205*^9}, 3.90863128706285*^9, 
   3.908631822845339*^9, 3.90863189831495*^9, {3.908631937528447*^9, 
   3.9086319476782837`*^9}, {3.908631988929281*^9, 3.908631998129753*^9}, 
   3.9086320530111856`*^9, 3.908632127712706*^9, 3.945504594555273*^9, 
   3.945504660693544*^9, 3.9455284710136833`*^9, 3.945528630898387*^9, 
   3.9455286940193987`*^9, {3.945528755575226*^9, 3.945528765662426*^9}, 
   3.945529326989294*^9, 3.945685936550136*^9, 3.9459502237284803`*^9, {
   3.945951209400618*^9, 3.945951238218993*^9}, 3.94595127031391*^9},
 CellLabel->
  "Out[1305]=",ExpressionUUID->"f9fcf4f2-69f5-481e-9756-2ee0d4e61d51"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"f", " ", "k", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "p"}], ")"}]}], "beta"]}], "+", "p", "-", 
  RowBox[{"f", " ", "s"}]}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906888568311233*^9, 3.906888669414132*^9, 
   3.906888934018712*^9, 3.906889335996728*^9, 3.906891022934751*^9, 
   3.90689113732183*^9, 3.906891576734345*^9, 3.906891646251997*^9, 
   3.906891799747628*^9, 3.9068949646810637`*^9, 3.906896432211864*^9, 
   3.906896557294413*^9, 3.906897783934716*^9, 3.906898046423236*^9, 
   3.906898804581724*^9, 3.906899117835902*^9, 3.9068993668137827`*^9, 
   3.9068995078549643`*^9, 3.906899626552541*^9, 3.906965376545188*^9, {
   3.906965471126281*^9, 3.90696549128205*^9}, 3.90863128706285*^9, 
   3.908631822845339*^9, 3.90863189831495*^9, {3.908631937528447*^9, 
   3.9086319476782837`*^9}, {3.908631988929281*^9, 3.908631998129753*^9}, 
   3.9086320530111856`*^9, 3.908632127712706*^9, 3.945504594555273*^9, 
   3.945504660693544*^9, 3.9455284710136833`*^9, 3.945528630898387*^9, 
   3.9455286940193987`*^9, {3.945528755575226*^9, 3.945528765662426*^9}, 
   3.945529326989294*^9, 3.945685936550136*^9, 3.9459502237284803`*^9, {
   3.945951209400618*^9, 3.945951238218993*^9}, 3.945951270314919*^9},
 CellLabel->
  "Out[1306]=",ExpressionUUID->"fbeb0f1c-3345-4788-b66f-a31bae6c1502"],

Cell[BoxData[
 RowBox[{"beta", " ", "d"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906888568311233*^9, 3.906888669414132*^9, 
   3.906888934018712*^9, 3.906889335996728*^9, 3.906891022934751*^9, 
   3.90689113732183*^9, 3.906891576734345*^9, 3.906891646251997*^9, 
   3.906891799747628*^9, 3.9068949646810637`*^9, 3.906896432211864*^9, 
   3.906896557294413*^9, 3.906897783934716*^9, 3.906898046423236*^9, 
   3.906898804581724*^9, 3.906899117835902*^9, 3.9068993668137827`*^9, 
   3.9068995078549643`*^9, 3.906899626552541*^9, 3.906965376545188*^9, {
   3.906965471126281*^9, 3.90696549128205*^9}, 3.90863128706285*^9, 
   3.908631822845339*^9, 3.90863189831495*^9, {3.908631937528447*^9, 
   3.9086319476782837`*^9}, {3.908631988929281*^9, 3.908631998129753*^9}, 
   3.9086320530111856`*^9, 3.908632127712706*^9, 3.945504594555273*^9, 
   3.945504660693544*^9, 3.9455284710136833`*^9, 3.945528630898387*^9, 
   3.9455286940193987`*^9, {3.945528755575226*^9, 3.945528765662426*^9}, 
   3.945529326989294*^9, 3.945685936550136*^9, 3.9459502237284803`*^9, {
   3.945951209400618*^9, 3.945951238218993*^9}, 3.9459512703158407`*^9},
 CellLabel->
  "Out[1307]=",ExpressionUUID->"81a9b393-2115-47f0-910b-76db4239b3c3"],

Cell[BoxData[
 RowBox[{"beta", " ", "p"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906888568311233*^9, 3.906888669414132*^9, 
   3.906888934018712*^9, 3.906889335996728*^9, 3.906891022934751*^9, 
   3.90689113732183*^9, 3.906891576734345*^9, 3.906891646251997*^9, 
   3.906891799747628*^9, 3.9068949646810637`*^9, 3.906896432211864*^9, 
   3.906896557294413*^9, 3.906897783934716*^9, 3.906898046423236*^9, 
   3.906898804581724*^9, 3.906899117835902*^9, 3.9068993668137827`*^9, 
   3.9068995078549643`*^9, 3.906899626552541*^9, 3.906965376545188*^9, {
   3.906965471126281*^9, 3.90696549128205*^9}, 3.90863128706285*^9, 
   3.908631822845339*^9, 3.90863189831495*^9, {3.908631937528447*^9, 
   3.9086319476782837`*^9}, {3.908631988929281*^9, 3.908631998129753*^9}, 
   3.9086320530111856`*^9, 3.908632127712706*^9, 3.945504594555273*^9, 
   3.945504660693544*^9, 3.9455284710136833`*^9, 3.945528630898387*^9, 
   3.9455286940193987`*^9, {3.945528755575226*^9, 3.945528765662426*^9}, 
   3.945529326989294*^9, 3.945685936550136*^9, 3.9459502237284803`*^9, {
   3.945951209400618*^9, 3.945951238218993*^9}, 3.945951270316736*^9},
 CellLabel->
  "Out[1308]=",ExpressionUUID->"b3bf8977-a3f5-4da4-8082-c067af6d571b"],

Cell[BoxData[
 RowBox[{"1", "-", "d"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906888568311233*^9, 3.906888669414132*^9, 
   3.906888934018712*^9, 3.906889335996728*^9, 3.906891022934751*^9, 
   3.90689113732183*^9, 3.906891576734345*^9, 3.906891646251997*^9, 
   3.906891799747628*^9, 3.9068949646810637`*^9, 3.906896432211864*^9, 
   3.906896557294413*^9, 3.906897783934716*^9, 3.906898046423236*^9, 
   3.906898804581724*^9, 3.906899117835902*^9, 3.9068993668137827`*^9, 
   3.9068995078549643`*^9, 3.906899626552541*^9, 3.906965376545188*^9, {
   3.906965471126281*^9, 3.90696549128205*^9}, 3.90863128706285*^9, 
   3.908631822845339*^9, 3.90863189831495*^9, {3.908631937528447*^9, 
   3.9086319476782837`*^9}, {3.908631988929281*^9, 3.908631998129753*^9}, 
   3.9086320530111856`*^9, 3.908632127712706*^9, 3.945504594555273*^9, 
   3.945504660693544*^9, 3.9455284710136833`*^9, 3.945528630898387*^9, 
   3.9455286940193987`*^9, {3.945528755575226*^9, 3.945528765662426*^9}, 
   3.945529326989294*^9, 3.945685936550136*^9, 3.9459502237284803`*^9, {
   3.945951209400618*^9, 3.945951238218993*^9}, 3.945951270317597*^9},
 CellLabel->
  "Out[1309]=",ExpressionUUID->"7bed4215-e7b5-42e2-9f65-ff44cb43e7d1"],

Cell[BoxData[
 RowBox[{"1", "-", "c", "-", "p"}]], "Output",
 CellChangeTimes->{
  3.812398315413393*^9, 3.812419721763268*^9, 3.812426016206773*^9, 
   3.812427219962802*^9, 3.8124276516757402`*^9, 3.8127542019877577`*^9, 
   3.8127546872823353`*^9, 3.812792967905696*^9, 3.81279468472952*^9, {
   3.814566066529868*^9, 3.814566079918144*^9}, 3.814571099552579*^9, 
   3.814572667118498*^9, 3.8145729227346907`*^9, 3.814574093316996*^9, {
   3.8145774072118397`*^9, 3.8145774222116213`*^9}, 3.814580114592618*^9, 
   3.814582699979787*^9, 3.814586021178928*^9, 3.814613331000081*^9, {
   3.814628069866127*^9, 3.814628074356229*^9}, 3.814628250733575*^9, 
   3.814628564925048*^9, 3.814628655875017*^9, 3.8146464624599752`*^9, 
   3.81464717417017*^9, 3.814649783389943*^9, 3.81465630603253*^9, 
   3.814663472215114*^9, 3.8146657260588627`*^9, 3.8147231361858177`*^9, 
   3.814723411719625*^9, 3.814723528084848*^9, 3.8147242593807993`*^9, 
   3.814740722023848*^9, 3.814746213218334*^9, 3.814746737250197*^9, 
   3.814746970855193*^9, 3.8147473984701843`*^9, {3.814748230571*^9, 
   3.814748240941959*^9}, 3.8147484448820763`*^9, 3.81474851565285*^9, 
   3.8147498414508343`*^9, 3.814750020154779*^9, 3.814751005939857*^9, 
   3.8147519739730864`*^9, 3.8148080228344793`*^9, 3.8148130490444927`*^9, 
   3.81481334367766*^9, {3.814814314334331*^9, 3.8148143355647306`*^9}, 
   3.814815020646459*^9, 3.816977137154921*^9, 3.81698585854005*^9, 
   3.8592135940372353`*^9, 3.859217736759798*^9, 3.859217894478129*^9, 
   3.859217933317618*^9, 3.859218081342762*^9, 3.859218555215989*^9, 
   3.8592395600977077`*^9, 3.859245695282864*^9, 3.859411635389924*^9, 
   3.859589402690816*^9, 3.859591935818437*^9, 3.8595923718269873`*^9, 
   3.862969881399828*^9, 3.862971037590526*^9, 3.86525451490429*^9, 
   3.865291839046224*^9, 3.865293380197667*^9, 3.865294431482864*^9, 
   3.865294709298337*^9, 3.865295191166583*^9, 3.868400614154059*^9, 
   3.870021459795904*^9, 3.870100802450019*^9, 3.90648694049727*^9, 
   3.906486999284783*^9, 3.9064930523482227`*^9, 3.906534543578456*^9, 
   3.906536911631922*^9, 3.9065614454711514`*^9, 3.906826031035172*^9, 
   3.906830313257473*^9, 3.906830945396688*^9, 3.90683229686193*^9, 
   3.906833166539031*^9, 3.9068336403323927`*^9, 3.906869628364482*^9, 
   3.906870237353292*^9, 3.906870790676889*^9, 3.906871027866721*^9, {
   3.90687136830261*^9, 3.906871373437838*^9}, 3.906871409604115*^9, 
   3.906873170100078*^9, 3.906888568311233*^9, 3.906888669414132*^9, 
   3.906888934018712*^9, 3.906889335996728*^9, 3.906891022934751*^9, 
   3.90689113732183*^9, 3.906891576734345*^9, 3.906891646251997*^9, 
   3.906891799747628*^9, 3.9068949646810637`*^9, 3.906896432211864*^9, 
   3.906896557294413*^9, 3.906897783934716*^9, 3.906898046423236*^9, 
   3.906898804581724*^9, 3.906899117835902*^9, 3.9068993668137827`*^9, 
   3.9068995078549643`*^9, 3.906899626552541*^9, 3.906965376545188*^9, {
   3.906965471126281*^9, 3.90696549128205*^9}, 3.90863128706285*^9, 
   3.908631822845339*^9, 3.90863189831495*^9, {3.908631937528447*^9, 
   3.9086319476782837`*^9}, {3.908631988929281*^9, 3.908631998129753*^9}, 
   3.9086320530111856`*^9, 3.908632127712706*^9, 3.945504594555273*^9, 
   3.945504660693544*^9, 3.9455284710136833`*^9, 3.945528630898387*^9, 
   3.9455286940193987`*^9, {3.945528755575226*^9, 3.945528765662426*^9}, 
   3.945529326989294*^9, 3.945685936550136*^9, 3.9459502237284803`*^9, {
   3.945951209400618*^9, 3.945951238218993*^9}, 3.945951270318513*^9},
 CellLabel->
  "Out[1310]=",ExpressionUUID->"a0e705de-cd5b-4f39-8d5d-bdc96b735145"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"contest", " ", "function"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"p", " ", "=", " ", 
   RowBox[{"f", "/", 
    RowBox[{"(", 
     RowBox[{"f", "+", "t"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.906965429400729*^9, 3.90696544223693*^9}},
 CellLabel->
  "In[1311]:=",ExpressionUUID->"c1427634-d954-4191-b9a2-870dd1af56c0"],

Cell[BoxData[
 FractionBox["f", 
  RowBox[{"f", "+", "t"}]]], "Output",
 CellChangeTimes->{{3.9069654435282784`*^9, 3.906965493644432*^9}, 
   3.908631289362629*^9, 3.9086318228726883`*^9, 3.908631898340343*^9, 
   3.908631937552597*^9, {3.908631988946394*^9, 3.908631998154901*^9}, 
   3.9086320530362387`*^9, 3.908632127736704*^9, 3.945504594570353*^9, 
   3.945504660704183*^9, 3.945528471022921*^9, 3.945528630915621*^9, 
   3.945528694034751*^9, {3.94552875558358*^9, 3.9455287656749907`*^9}, 
   3.9455293269979677`*^9, 3.94568593656289*^9, 3.9459502279809027`*^9, {
   3.945951209416995*^9, 3.945951238235793*^9}, 3.945951270329472*^9},
 CellLabel->
  "Out[1311]=",ExpressionUUID->"dab5e0be-dcad-4339-a2c7-473de471aac9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\n", 
  RowBox[{
   RowBox[{"PUSG3", " ", "=", " ", "Node6P"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.814811352256537*^9, 3.814811359466757*^9}, 
   3.814811423297978*^9, 3.814813481012723*^9, 3.814813603150178*^9, {
   3.814815699980174*^9, 3.81481571013056*^9}, {3.9069654197677813`*^9, 
   3.9069654503699503`*^9}},
 CellLabel->
  "In[1312]:=",ExpressionUUID->"d6e966f9-f993-44cd-80e9-4577c96e5d4e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "f"}], " ", "s"}], "+", 
  FractionBox["f", 
   RowBox[{"f", "+", "t"}]], "-", 
  FractionBox[
   RowBox[{"f", " ", "k", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["f", 
       RowBox[{"f", "+", "t"}]]}], ")"}]}], "beta"]}]], "Output",
 CellChangeTimes->{
  3.814813604823053*^9, {3.814814326170725*^9, 3.814814346625568*^9}, 
   3.8148153641231747`*^9, 3.814815765085505*^9, 3.816988558779553*^9, 
   3.85921790546726*^9, 3.8592183420226793`*^9, 3.859218804992879*^9, 
   3.85924562245776*^9, 3.859245703503538*^9, 3.859411640137005*^9, 
   3.8595923765073547`*^9, 3.8629703901101627`*^9, 3.862971044012603*^9, 
   3.865294738864802*^9, 3.8652952206852417`*^9, 3.868400642627555*^9, 
   3.870021488144553*^9, 3.8701008309016542`*^9, 3.906561802878437*^9, {
   3.906869924892364*^9, 3.906869927021606*^9}, 3.9068704179020443`*^9, 
   3.906871176179723*^9, 3.906871380349258*^9, 3.9068714166403646`*^9, {
   3.906895082612718*^9, 3.9068950844125013`*^9}, 3.906897794475369*^9, 
   3.906898049549512*^9, 3.906898808102174*^9, 3.906899121097472*^9, 
   3.906899370011332*^9, 3.906899511159668*^9, 3.9068996287814493`*^9, {
   3.90696545294512*^9, 3.9069654952861*^9}, 3.908631290690769*^9, 
   3.9086318228811073`*^9, 3.908631898345709*^9, 3.908631937557295*^9, {
   3.90863198895719*^9, 3.908631998161614*^9}, 3.9086320530434093`*^9, 
   3.908632127743401*^9, 3.945504594572979*^9, 3.9455046607147503`*^9, 
   3.945528471029415*^9, 3.945528630918933*^9, 3.945528694037963*^9, {
   3.945528755590948*^9, 3.945528765678138*^9}, 3.9455293270093937`*^9, 
   3.94568593656632*^9, 3.945950237859446*^9, {3.945951209420515*^9, 
   3.945951238239314*^9}, 3.945951270335161*^9},
 CellLabel->
  "Out[1312]=",ExpressionUUID->"8e3eb1d0-9ba9-4a03-8ee7-15fdd4dc8b71"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "f"], "PUSG3"}], "\[Equal]", "0"}], ",", 
     "f", ",", "NonNegativeReals"}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8148136159687*^9, 3.814813623630949*^9}, {
  3.862970392954705*^9, 3.8629703951088047`*^9}, {3.906561807318676*^9, 
  3.906561807636965*^9}, {3.906869932458211*^9, 3.906869938066823*^9}},
 CellLabel->
  "In[1313]:=",ExpressionUUID->"f890d0a4-3f49-4f05-b0e2-c9071c71f847"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"f", "\[Rule]", 
    TemplateBox[{
      RowBox[{
        RowBox[{"-", "t"}], "+", 
        RowBox[{
          SqrtBox[
           FractionBox["1", 
            RowBox[{"beta", " ", "s"}]]], " ", 
          SqrtBox[
           RowBox[{
             RowBox[{"beta", " ", "t"}], "-", 
             RowBox[{"k", " ", 
               SuperscriptBox["t", "2"]}]}]]}]}], 
      RowBox[{
        RowBox[{"k", "<", 
          FractionBox["beta", "t"]}], "&&", 
        RowBox[{"s", "<", 
          FractionBox[
           RowBox[{"beta", "-", 
             RowBox[{"k", " ", "t"}]}], 
           RowBox[{"beta", " ", "t"}]]}]}]},
     "ConditionalExpression"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.814813625327736*^9, 3.814814350730351*^9, 3.814815368412043*^9, 
   3.814815768199292*^9, 3.816988561957851*^9, 3.859217905473254*^9, 
   3.8592183443241777`*^9, 3.8592188066144333`*^9, 3.859245622522066*^9, 
   3.8592457059466257`*^9, 3.859411640173985*^9, 3.859592376521892*^9, 
   3.862970395667705*^9, 3.862971044039125*^9, 3.86529473889636*^9, 
   3.865295220718892*^9, 3.868400642648445*^9, 3.8700214881633053`*^9, 
   3.870100830928956*^9, 3.906561808805277*^9, {3.906869929373604*^9, 
   3.906869938692971*^9}, 3.906870421326079*^9, 3.906871178293811*^9, 
   3.906871380388071*^9, 3.90687141667939*^9, 3.9068950866476192`*^9, 
   3.906897794544088*^9, 3.906898049595841*^9, 3.906898808144679*^9, 
   3.906899121140033*^9, 3.90689937005366*^9, 3.906899511202072*^9, 
   3.9068996288099318`*^9, {3.9069654573447943`*^9, 3.906965496825541*^9}, 
   3.90863129521828*^9, 3.908631822902516*^9, 3.908631898367885*^9, 
   3.908631937572383*^9, {3.9086319889772663`*^9, 3.908631998181952*^9}, 
   3.9086320530634117`*^9, 3.908632127764317*^9, 3.945504594589323*^9, 
   3.945504660731196*^9, 3.945528471044546*^9, 3.9455286309346952`*^9, 
   3.945528694053379*^9, {3.94552875560686*^9, 3.945528765694291*^9}, 
   3.945529327025408*^9, 3.945685936582635*^9, 3.945950241516802*^9, {
   3.945951209437026*^9, 3.945951238255892*^9}, 3.94595127035153*^9},
 CellLabel->
  "Out[1313]=",ExpressionUUID->"8fa36b55-7eb9-4c7d-900f-f75651b4a9e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"fstarsg3", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "t"}], "+", 
    RowBox[{
     SqrtBox[
      FractionBox["1", 
       RowBox[{"beta", " ", "s"}]]], " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"beta", " ", "t"}], "-", 
       RowBox[{"k", " ", 
        SuperscriptBox["t", "2"]}]}]]}]}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814813631424466*^9, 3.814813656795336*^9}, {
   3.8148157133764153`*^9, 3.814815721656961*^9}, 3.859218366911003*^9, 
   3.862970404472912*^9, 3.906561815437086*^9, 3.906869947292284*^9, 
   3.9069655104042883`*^9},
 CellLabel->
  "In[1314]:=",ExpressionUUID->"85aabfd1-343f-48c2-9707-4ab8acf5603d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  RowBox[{
   SqrtBox[
    FractionBox["1", 
     RowBox[{"beta", " ", "s"}]]], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"beta", " ", "t"}], "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["t", "2"]}]}]]}]}]], "Output",
 CellChangeTimes->{
  3.9086313004801598`*^9, 3.908631822908391*^9, 3.9086318983744802`*^9, 
   3.908631937582924*^9, {3.908631988983386*^9, 3.908631998187852*^9}, 
   3.908632053069477*^9, 3.9086321277701807`*^9, 3.945504594592969*^9, 
   3.945504660737351*^9, 3.945528471048335*^9, 3.945528630941231*^9, 
   3.945528694057189*^9, {3.945528755611278*^9, 3.945528765697885*^9}, 
   3.945529327029498*^9, 3.9456859365869493`*^9, 3.945950262700267*^9, {
   3.945951209444726*^9, 3.9459512382601547`*^9}, 3.945951270355551*^9},
 CellLabel->
  "Out[1314]=",ExpressionUUID->"1dcb9c0f-55fb-436c-a6c1-7ecfbdd78681"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{"FullSimplify", "[", "fstarsg3", "]"}]}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.906965512338633*^9, 3.906965524147502*^9}},
 CellLabel->
  "In[1315]:=",ExpressionUUID->"49dfe995-6827-491e-908f-baca1303a32d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "t"}], "+", 
  SqrtBox[
   FractionBox[
    RowBox[{"t", " ", 
     RowBox[{"(", 
      RowBox[{"beta", "-", 
       RowBox[{"k", " ", "t"}]}], ")"}]}], 
    RowBox[{"beta", " ", "s"}]]]}]], "Output",
 CellChangeTimes->{
  3.814813658310416*^9, 3.814814355175209*^9, 3.814815371093534*^9, 
   3.814815734270213*^9, 3.814815771805847*^9, 3.816988564391823*^9, 
   3.8592179054898*^9, {3.8592183528110533`*^9, 3.859218354288773*^9}, {
   3.859218808331015*^9, 3.859218809992529*^9}, 3.859245622534225*^9, {
   3.859245709336193*^9, 3.8592457109261103`*^9}, 3.859411640190054*^9, 
   3.859592376546376*^9, 3.8629704078596773`*^9, 3.8629710440571423`*^9, 
   3.8652947389132032`*^9, 3.865295220761862*^9, 3.868400642661127*^9, 
   3.870021488172928*^9, 3.870100830943613*^9, 3.906561816721931*^9, 
   3.906869948719018*^9, {3.906870424414591*^9, 3.906870428570133*^9}, {
   3.90687118504716*^9, 3.9068711876114883`*^9}, 3.9068713803977222`*^9, 
   3.906871416689292*^9, {3.906895089912224*^9, 3.906895101653319*^9}, 
   3.906897794560025*^9, 3.906898049610235*^9, 3.906898808158251*^9, 
   3.906899121159514*^9, 3.9068993700678577`*^9, 3.906899511216155*^9, 
   3.9068996288225527`*^9, {3.906965500205483*^9, 3.9069655252052717`*^9}, 
   3.908631304960889*^9, 3.908631822945574*^9, 3.9086318984127417`*^9, 
   3.908631937620447*^9, {3.908631989020671*^9, 3.9086319982242117`*^9}, 
   3.908632053105577*^9, 3.908632127806611*^9, 3.945504594620224*^9, 
   3.945504660765093*^9, 3.945528471075819*^9, 3.945528630968359*^9, 
   3.945528694084374*^9, {3.945528755638339*^9, 3.945528765726138*^9}, 
   3.945529327058324*^9, 3.9456859366163197`*^9, 3.945950267111279*^9, {
   3.945951209474926*^9, 3.945951238290152*^9}, 3.945951270385541*^9},
 CellLabel->
  "Out[1315]=",ExpressionUUID->"a6ac8735-3b95-4469-877e-21f3e5430ac7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg3", " ", "=", " ", 
  RowBox[{"(", 
   RowBox[{"fstarsg3", "/", 
    RowBox[{"(", 
     RowBox[{"fstarsg3", "+", "t"}], ")"}]}], ")"}]}]], "Input",
 CellLabel->
  "In[1316]:=",ExpressionUUID->"f7206a83-6240-4c38-aea4-83ef51aa96fd"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "t"}], "+", 
   RowBox[{
    SqrtBox[
     FractionBox["1", 
      RowBox[{"beta", " ", "s"}]]], " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"beta", " ", "t"}], "-", 
      RowBox[{"k", " ", 
       SuperscriptBox["t", "2"]}]}]]}]}], 
  RowBox[{
   SqrtBox[
    FractionBox["1", 
     RowBox[{"beta", " ", "s"}]]], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"beta", " ", "t"}], "-", 
     RowBox[{"k", " ", 
      SuperscriptBox["t", "2"]}]}]]}]]], "Output",
 CellChangeTimes->{
  3.814813658310416*^9, 3.814814355175209*^9, 3.814815371093534*^9, 
   3.814815734270213*^9, 3.814815771805847*^9, 3.816988564391823*^9, 
   3.8592179054898*^9, {3.8592183528110533`*^9, 3.8592183697821617`*^9}, 
   3.859218812167489*^9, 3.859245622565897*^9, 3.859245712892708*^9, 
   3.8594116402334538`*^9, 3.8595923765700397`*^9, 3.862970410819366*^9, 
   3.862971044090597*^9, 3.865294738944734*^9, 3.865295220782933*^9, 
   3.8684006426822977`*^9, 3.870021488191881*^9, 3.870100830967243*^9, 
   3.90656182127722*^9, 3.906869951958902*^9, 3.90687043088925*^9, 
   3.906871189876726*^9, 3.906871380425003*^9, 3.90687141671946*^9, 
   3.906895105007615*^9, 3.906897794593388*^9, 3.906898049635994*^9, 
   3.906898808186143*^9, 3.906899121193512*^9, 3.906899370100589*^9, 
   3.906899511250808*^9, 3.906899628848937*^9, 3.906965788118916*^9, 
   3.90863130812784*^9, 3.908631822950563*^9, 3.908631898418468*^9, 
   3.908631937625413*^9, {3.908631989025682*^9, 3.908631998229227*^9}, 
   3.9086320531106377`*^9, 3.908632127811549*^9, 3.945504594622796*^9, 
   3.945504660768093*^9, 3.9455284710792627`*^9, 3.945528630971463*^9, 
   3.945528694087281*^9, {3.945528755641074*^9, 3.945528765729291*^9}, 
   3.945529327062126*^9, 3.945685936619608*^9, 3.945950852745967*^9, {
   3.945951209478615*^9, 3.94595123829408*^9}, 3.945951270389377*^9},
 CellLabel->
  "Out[1316]=",ExpressionUUID->"da0aa629-524f-4ce0-bc50-e84ca7459b70"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pstarsg3", " ", "=", 
  RowBox[{"FullSimplify", "[", "pstarsg3", "]"}]}]], "Input",
 CellChangeTimes->{
  3.85921837613864*^9, {3.906965799932809*^9, 3.906965803236712*^9}},
 NumberMarks->False,
 CellLabel->
  "In[1317]:=",ExpressionUUID->"caeb1014-6c63-4bbd-9667-a1cf4706d9ad"],

Cell[BoxData[
 RowBox[{"1", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{
  3.8592183715487328`*^9, 3.859218813942348*^9, 3.859245622578669*^9, 
   3.859245714832464*^9, 3.859411640272045*^9, 3.859592376599367*^9, 
   3.8629704129475613`*^9, 3.862971044142618*^9, 3.865294739000161*^9, 
   3.8652952208405113`*^9, 3.8684006427248087`*^9, 3.870021488234681*^9, 
   3.870100831014192*^9, 3.906561823659375*^9, 3.906869954133665*^9, 
   3.906870438745261*^9, 3.9068711928709087`*^9, 3.906871380483183*^9, 
   3.9068714167776747`*^9, 3.906895106814603*^9, 3.906895470391019*^9, 
   3.906895675535956*^9, 3.9068977946544952`*^9, 3.906898049697875*^9, 
   3.9068988082467833`*^9, 3.906899121256654*^9, 3.906899370162632*^9, 
   3.906899511312199*^9, 3.9068996288894777`*^9, {3.906965789560663*^9, 
   3.9069658041081877`*^9}, 3.9086313105739822`*^9, 3.908631823024576*^9, 
   3.90863189849398*^9, 3.90863193770187*^9, {3.908631989103602*^9, 
   3.908631998305194*^9}, 3.908632053185905*^9, 3.908632127886904*^9, 
   3.945504594680086*^9, 3.945504660824769*^9, 3.945528471137578*^9, 
   3.945528631028565*^9, 3.945528694145733*^9, {3.945528755698151*^9, 
   3.9455287657864933`*^9}, 3.945529327122095*^9, 3.945685936682293*^9, 
   3.945950855249599*^9, {3.945951209541668*^9, 3.945951238357623*^9}, 
   3.945951270452817*^9},
 CellLabel->
  "Out[1317]=",ExpressionUUID->"8f8d818c-728b-498f-b71f-458e68c4934d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814813717326144*^9, 3.814813721626821*^9}, {
   3.814813755733878*^9, 3.814813757207923*^9}, {3.814813804237296*^9, 
   3.814813804860663*^9}, 3.859218385798154*^9},
 CellLabel->
  "In[1318]:=",ExpressionUUID->"4c367a33-aa4f-4121-bf92-a4d3ff3cb040"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"dstarsg3", " ", "=", " ", 
    RowBox[{"pstarsg3", "+", "c"}]}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8148144732999897`*^9, 3.8148145117717524`*^9}, {
  3.906895693974471*^9, 3.906895698209076*^9}, {3.906895752708424*^9, 
  3.9068957576846657`*^9}},
 CellLabel->
  "In[1319]:=",ExpressionUUID->"0e1f29f5-cbe7-4060-ac1b-fed4f0510552"],

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{{3.814814497258731*^9, 3.8148145145805483`*^9}, 
   3.814815421237*^9, 3.81481584606857*^9, 3.814817164197566*^9, 
   3.816988604728545*^9, 3.859218871500132*^9, 3.859245622756466*^9, 
   3.859245758771456*^9, 3.859411640599545*^9, 3.8595923769032907`*^9, 
   3.862970436618342*^9, 3.862971044997786*^9, 3.865294739826002*^9, 
   3.865295221795843*^9, 3.868400643506352*^9, 3.870021488978278*^9, 
   3.87010083178016*^9, 3.906561865553183*^9, 3.906869985579502*^9, 
   3.906870458911016*^9, 3.906871226792871*^9, 3.9068713815723667`*^9, 
   3.906871417875978*^9, 3.90689569224369*^9, 3.9068957581854897`*^9, 
   3.9068977946815453`*^9, 3.906898049718486*^9, 3.906898808300889*^9, 
   3.906899121282892*^9, 3.906899370188939*^9, 3.906899511340308*^9, 
   3.90689962890891*^9, 3.906965860284741*^9, 3.908631312524332*^9, 
   3.908631823037269*^9, 3.908631898510399*^9, 3.908631937713986*^9, {
   3.908631989115417*^9, 3.908631998319819*^9}, 3.9086320531997147`*^9, 
   3.908632127900688*^9, 3.945504594691766*^9, 3.9455046608368473`*^9, 
   3.945528471144382*^9, 3.945528631039176*^9, 3.94552869415676*^9, {
   3.945528755704462*^9, 3.9455287657948923`*^9}, 3.945529327133525*^9, 
   3.945685936689825*^9, 3.945951030072318*^9, {3.945951209554634*^9, 
   3.945951238369285*^9}, 3.945951270461317*^9},
 CellLabel->
  "Out[1319]=",ExpressionUUID->"cfa319c8-880e-4b4f-afe3-a077bbbfb48f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dstarsg3", " ", "=", 
  RowBox[{"FullSimplify", "[", "dstarsg3", "]"}]}]], "Input",
 CellChangeTimes->{3.906895768464673*^9},
 NumberMarks->False,
 CellLabel->
  "In[1320]:=",ExpressionUUID->"ea4d044a-ef98-4f02-8b0c-4086adef1586"],

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{{3.906895762757318*^9, 3.9068957694021807`*^9}, 
   3.906897794842984*^9, 3.906898049880629*^9, 3.9068988084631968`*^9, 
   3.90689912145434*^9, 3.906899370351838*^9, 3.9068995115044813`*^9, 
   3.906899629010429*^9, 3.90696586184962*^9, 3.908631314113611*^9, 
   3.90863182305882*^9, 3.908631898536207*^9, 3.908631937753149*^9, {
   3.9086319891369953`*^9, 3.9086319983416758`*^9}, 3.908632053221665*^9, 
   3.908632127922389*^9, 3.945504594707369*^9, 3.945504660852199*^9, 
   3.945528471159631*^9, 3.9455286310552683`*^9, 3.9455286941724577`*^9, {
   3.945528755719625*^9, 3.945528765810638*^9}, 3.945529327149479*^9, 
   3.945685936706272*^9, 3.945951058484449*^9, {3.945951209572321*^9, 
   3.945951238386529*^9}, 3.945951270478368*^9},
 CellLabel->
  "Out[1320]=",ExpressionUUID->"497a4740-bedc-46ce-a5c9-2658b17ed253"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "what", " ", "are", " ", "the", " ", "expected", " ", "utiltites", " ", 
    "for", " ", "cong", " ", "and", " ", "prez", " ", "at", " ", "for", " ", 
    RowBox[{"SG3", "?"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"d", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", " ", "=", " ", "dstarsg3"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.814814600630628*^9, 3.8148146158194*^9}, 
   3.906895825006795*^9, 3.945685882325408*^9},
 CellLabel->
  "In[1321]:=",ExpressionUUID->"f2ed2750-aded-4a73-a2a0-dbdab40473f8"],

Cell[BoxData[
 RowBox[{"1", "+", "c", "-", 
  SqrtBox[
   FractionBox[
    RowBox[{"beta", " ", "s", " ", "t"}], 
    RowBox[{"beta", "-", 
     RowBox[{"k", " ", "t"}]}]]]}]], "Output",
 CellChangeTimes->{
  3.814814618010314*^9, 3.814815436067709*^9, 3.814815867953614*^9, 
   3.814817184224081*^9, 3.8169886112640123`*^9, 3.859218910208774*^9, 
   3.859245622826915*^9, 3.859245779171689*^9, 3.8594116407737923`*^9, 
   3.8595923770933447`*^9, 3.862970447902753*^9, 3.862971045134152*^9, 
   3.8652947400379677`*^9, 3.865295221912718*^9, 3.868400643596323*^9, 
   3.870021489065174*^9, 3.870100831872837*^9, 3.906561871378158*^9, 
   3.906869990567583*^9, 3.9068704636116056`*^9, 3.906871232041835*^9, 
   3.906871382025803*^9, 3.906871418320002*^9, 3.906895874260476*^9, 
   3.906897794854658*^9, 3.90689804989286*^9, 3.9068988084757643`*^9, 
   3.906899121467691*^9, 3.906899370364644*^9, 3.9068995115177097`*^9, 
   3.906899629020261*^9, 3.906965864177442*^9, 3.9086313159917088`*^9, 
   3.9086318230635967`*^9, 3.908631898540886*^9, 3.908631937757908*^9, {
   3.90863198914466*^9, 3.908631998346467*^9}, 3.908632053228115*^9, 
   3.90863212792759*^9, 3.9455045947148523`*^9, 3.945504660855153*^9, 
   3.9455284711623287`*^9, 3.9455286310584507`*^9, 3.945528694179058*^9, {
   3.945528755722176*^9, 3.9455287658140593`*^9}, 3.945529327153023*^9, 
   3.945685936713674*^9, 3.945951119329072*^9, 3.9459512095758657`*^9, 
   3.9459512704841433`*^9},
 CellLabel->
  "Out[1322]=",ExpressionUUID->"f560270b-d0ab-44e2-8e3f-168297f1229f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.814815594337995*^9, 3.8148156035598183`*^9}},
 CellLabel->
  "In[1323]:=",ExpressionUUID->"bfe0bbba-e50f-4a9f-b534-1ee934392963"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dstarsg3", " ", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"dstarsg3", " ", ">", " ", "1"}], ",", "1", ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"dstarsg3", " ", "<", " ", "0"}], ",", "0", ",", "dstarsg3"}], 
     "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Fstarsg3", " ", "=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"fstarsg3", " ", "<", " ", "0"}], ",", "0", ",", "fstarsg3"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.814814834029901*^9, 3.814814900521966*^9}, {
  3.9069658767991247`*^9, 3.906965877261182*^9}, {3.945951187299149*^9, 
  3.945951187748728*^9}},
 CellLabel->
  "In[1324]:=",ExpressionUUID->"e4b5e3a7-3fb7-4b1a-9798-e878a4eb8a36"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "+", "c", "-", 
     SqrtBox[
      FractionBox[
       RowBox[{"beta", " ", "s", " ", "t"}], 
       RowBox[{"beta", "-", 
        RowBox[{"k", " ", "t"}]}]]]}], ">", "1"}], ",", "1", ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"dstarsg3", "<", "0"}], ",", "0", ",", "dstarsg3"}], "]"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.814814903701456*^9, 3.8148154584783792`*^9, 3.814815910712919*^9, 
   3.814817228411625*^9, 3.816988628786416*^9, 3.85921894223663*^9, 
   3.859245622932045*^9, 3.8592458013891373`*^9, 3.859411641197456*^9, 
   3.859592377522831*^9, 3.8629704731138887`*^9, 3.862971046195992*^9, 
   3.865294741109359*^9, 3.8652952229940577`*^9, 3.868400644695941*^9, 
   3.870021490044826*^9, 3.870100832876103*^9, 3.9065618798440313`*^9, 
   3.9068700005881844`*^9, 3.906870475344503*^9, 3.906871241499263*^9, 
   3.906871383485462*^9, 3.906871419783434*^9, 3.906895897834968*^9, 
   3.906897794883037*^9, 3.906898049913988*^9, 3.9068988084990788`*^9, 
   3.906899121494766*^9, 3.906899370392385*^9, 3.906899511548099*^9, 
   3.906899629062875*^9, 3.906965879267009*^9, 3.908631318707068*^9, 
   3.908631823078631*^9, 3.9086318985614357`*^9, 3.90863193777034*^9, {
   3.908631989157198*^9, 3.908631998361467*^9}, 3.908632053243108*^9, 
   3.908632127942153*^9, 3.945504594729473*^9, 3.9455046608662863`*^9, 
   3.945528471169158*^9, 3.945528631069725*^9, 3.94552869419074*^9, {
   3.945528755728424*^9, 3.9455287658289557`*^9}, 3.945529327170043*^9, 
   3.945685936720771*^9, 3.94595120958885*^9, 3.945951270492511*^9},
 CellLabel->
  "Out[1324]=",ExpressionUUID->"267034e1-3fb1-4698-a396-1c4895b1fb91"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "t"}], "+", 
     RowBox[{
      SqrtBox[
       FractionBox["1", 
        RowBox[{"beta", " ", "s"}]]], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"beta", " ", "t"}], "-", 
        RowBox[{"k", " ", 
         SuperscriptBox["t", "2"]}]}]]}]}], "<", "0"}], ",", "0", ",", 
   "fstarsg3"}], "]"}]], "Output",
 CellChangeTimes->{
  3.814814903701456*^9, 3.8148154584783792`*^9, 3.814815910712919*^9, 
   3.814817228411625*^9, 3.816988628786416*^9, 3.85921894223663*^9, 
   3.859245622932045*^9, 3.8592458013891373`*^9, 3.859411641197456*^9, 
   3.859592377522831*^9, 3.8629704731138887`*^9, 3.862971046195992*^9, 
   3.865294741109359*^9, 3.8652952229940577`*^9, 3.868400644695941*^9, 
   3.870021490044826*^9, 3.870100832876103*^9, 3.9065618798440313`*^9, 
   3.9068700005881844`*^9, 3.906870475344503*^9, 3.906871241499263*^9, 
   3.906871383485462*^9, 3.906871419783434*^9, 3.906895897834968*^9, 
   3.906897794883037*^9, 3.906898049913988*^9, 3.9068988084990788`*^9, 
   3.906899121494766*^9, 3.906899370392385*^9, 3.906899511548099*^9, 
   3.906899629062875*^9, 3.906965879267009*^9, 3.908631318707068*^9, 
   3.908631823078631*^9, 3.9086318985614357`*^9, 3.90863193777034*^9, {
   3.908631989157198*^9, 3.908631998361467*^9}, 3.908632053243108*^9, 
   3.908632127942153*^9, 3.945504594729473*^9, 3.9455046608662863`*^9, 
   3.945528471169158*^9, 3.945528631069725*^9, 3.94552869419074*^9, {
   3.945528755728424*^9, 3.9455287658289557`*^9}, 3.945529327170043*^9, 
   3.945685936720771*^9, 3.94595120958885*^9, 3.945951270493733*^9},
 CellLabel->
  "Out[1325]=",ExpressionUUID->"fc767bfa-0af8-48df-9207-a577da829683"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"k", " ", "=", "0.5"}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=", "0.15"}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=", "0.6"}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=", "0.2"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"a", "=", ".1"}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=", "1"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.814814953340148*^9, 3.814814988265747*^9}, {
   3.8148155099475183`*^9, 3.814815518830717*^9}, {3.8148160232956867`*^9, 
   3.814816050261779*^9}, {3.814817250138558*^9, 3.814817262009139*^9}, {
   3.814817849928194*^9, 3.814817887489943*^9}, {3.8148179269715433`*^9, 
   3.814817927355298*^9}, {3.859218949874776*^9, 3.859219011975116*^9}, {
   3.906965894215734*^9, 3.906965904857161*^9}, {3.908631337850088*^9, 
   3.9086313959077806`*^9}, 3.908631793005748*^9},
 CellLabel->
  "In[1326]:=",ExpressionUUID->"8663e7c4-4e37-4121-969a-233812f9a3fa"],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{
  3.8148159233692617`*^9, 3.814816051939197*^9, {3.814817234185486*^9, 
   3.81481726440084*^9}, 3.8148178509919567`*^9, 3.814817892057385*^9, 
   3.816988631814229*^9, 3.859218951639762*^9, {3.85921898314725*^9, 
   3.859219012964402*^9}, 3.859245622983602*^9, 3.8592458038205547`*^9, 
   3.859411641231347*^9, 3.859592377581122*^9, 3.862970479818007*^9, 
   3.8629710462525587`*^9, 3.865294741147482*^9, 3.865295223030109*^9, 
   3.868400644734564*^9, 3.870021490085889*^9, 3.870100832902237*^9, 
   3.906561883593306*^9, 3.906870003185787*^9, 3.90687047800576*^9, 
   3.9068712442209587`*^9, 3.906871383516279*^9, 3.906871419815462*^9, 
   3.906895904918644*^9, 3.90689779494075*^9, 3.906898049961928*^9, 
   3.906898808550292*^9, 3.906899121551506*^9, 3.906899370450749*^9, 
   3.906899511609838*^9, 3.906899629107677*^9, {3.906965882171465*^9, 
   3.9069659058428583`*^9}, {3.908631328843925*^9, 3.908631396625288*^9}, 
   3.908631686787847*^9, {3.908631793924966*^9, 3.9086318230930653`*^9}, 
   3.90863189858004*^9, 3.90863193778444*^9, {3.908631989171999*^9, 
   3.908631998381167*^9}, 3.908632053260825*^9, 3.90863212795955*^9, 
   3.945504594740323*^9, 3.945504660877186*^9, 3.945528471176998*^9, 
   3.945528631083048*^9, 3.9455286942036*^9, {3.945528755735035*^9, 
   3.9455287658401327`*^9}, 3.945529327184808*^9, 3.945685936730624*^9, 
   3.9459512096033077`*^9, 3.945951270500619*^9},
 CellLabel->
  "Out[1326]=",ExpressionUUID->"57289ab9-6a82-47fd-a9be-18d177f11955"],

Cell[BoxData["0.15`"], "Output",
 CellChangeTimes->{
  3.8148159233692617`*^9, 3.814816051939197*^9, {3.814817234185486*^9, 
   3.81481726440084*^9}, 3.8148178509919567`*^9, 3.814817892057385*^9, 
   3.816988631814229*^9, 3.859218951639762*^9, {3.85921898314725*^9, 
   3.859219012964402*^9}, 3.859245622983602*^9, 3.8592458038205547`*^9, 
   3.859411641231347*^9, 3.859592377581122*^9, 3.862970479818007*^9, 
   3.8629710462525587`*^9, 3.865294741147482*^9, 3.865295223030109*^9, 
   3.868400644734564*^9, 3.870021490085889*^9, 3.870100832902237*^9, 
   3.906561883593306*^9, 3.906870003185787*^9, 3.90687047800576*^9, 
   3.9068712442209587`*^9, 3.906871383516279*^9, 3.906871419815462*^9, 
   3.906895904918644*^9, 3.90689779494075*^9, 3.906898049961928*^9, 
   3.906898808550292*^9, 3.906899121551506*^9, 3.906899370450749*^9, 
   3.906899511609838*^9, 3.906899629107677*^9, {3.906965882171465*^9, 
   3.9069659058428583`*^9}, {3.908631328843925*^9, 3.908631396625288*^9}, 
   3.908631686787847*^9, {3.908631793924966*^9, 3.9086318230930653`*^9}, 
   3.90863189858004*^9, 3.90863193778444*^9, {3.908631989171999*^9, 
   3.908631998381167*^9}, 3.908632053260825*^9, 3.90863212795955*^9, 
   3.945504594740323*^9, 3.945504660877186*^9, 3.945528471176998*^9, 
   3.945528631083048*^9, 3.9455286942036*^9, {3.945528755735035*^9, 
   3.9455287658401327`*^9}, 3.945529327184808*^9, 3.945685936730624*^9, 
   3.9459512096033077`*^9, 3.945951270501604*^9},
 CellLabel->
  "Out[1327]=",ExpressionUUID->"d5e66b2f-d3d7-4cdd-a4fd-88bf1025b16b"],

Cell[BoxData["0.6`"], "Output",
 CellChangeTimes->{
  3.8148159233692617`*^9, 3.814816051939197*^9, {3.814817234185486*^9, 
   3.81481726440084*^9}, 3.8148178509919567`*^9, 3.814817892057385*^9, 
   3.816988631814229*^9, 3.859218951639762*^9, {3.85921898314725*^9, 
   3.859219012964402*^9}, 3.859245622983602*^9, 3.8592458038205547`*^9, 
   3.859411641231347*^9, 3.859592377581122*^9, 3.862970479818007*^9, 
   3.8629710462525587`*^9, 3.865294741147482*^9, 3.865295223030109*^9, 
   3.868400644734564*^9, 3.870021490085889*^9, 3.870100832902237*^9, 
   3.906561883593306*^9, 3.906870003185787*^9, 3.90687047800576*^9, 
   3.9068712442209587`*^9, 3.906871383516279*^9, 3.906871419815462*^9, 
   3.906895904918644*^9, 3.90689779494075*^9, 3.906898049961928*^9, 
   3.906898808550292*^9, 3.906899121551506*^9, 3.906899370450749*^9, 
   3.906899511609838*^9, 3.906899629107677*^9, {3.906965882171465*^9, 
   3.9069659058428583`*^9}, {3.908631328843925*^9, 3.908631396625288*^9}, 
   3.908631686787847*^9, {3.908631793924966*^9, 3.9086318230930653`*^9}, 
   3.90863189858004*^9, 3.90863193778444*^9, {3.908631989171999*^9, 
   3.908631998381167*^9}, 3.908632053260825*^9, 3.90863212795955*^9, 
   3.945504594740323*^9, 3.945504660877186*^9, 3.945528471176998*^9, 
   3.945528631083048*^9, 3.9455286942036*^9, {3.945528755735035*^9, 
   3.9455287658401327`*^9}, 3.945529327184808*^9, 3.945685936730624*^9, 
   3.9459512096033077`*^9, 3.94595127050245*^9},
 CellLabel->
  "Out[1328]=",ExpressionUUID->"bd063ed0-86ae-4849-99d4-89ffd7188f49"],

Cell[BoxData["0.2`"], "Output",
 CellChangeTimes->{
  3.8148159233692617`*^9, 3.814816051939197*^9, {3.814817234185486*^9, 
   3.81481726440084*^9}, 3.8148178509919567`*^9, 3.814817892057385*^9, 
   3.816988631814229*^9, 3.859218951639762*^9, {3.85921898314725*^9, 
   3.859219012964402*^9}, 3.859245622983602*^9, 3.8592458038205547`*^9, 
   3.859411641231347*^9, 3.859592377581122*^9, 3.862970479818007*^9, 
   3.8629710462525587`*^9, 3.865294741147482*^9, 3.865295223030109*^9, 
   3.868400644734564*^9, 3.870021490085889*^9, 3.870100832902237*^9, 
   3.906561883593306*^9, 3.906870003185787*^9, 3.90687047800576*^9, 
   3.9068712442209587`*^9, 3.906871383516279*^9, 3.906871419815462*^9, 
   3.906895904918644*^9, 3.90689779494075*^9, 3.906898049961928*^9, 
   3.906898808550292*^9, 3.906899121551506*^9, 3.906899370450749*^9, 
   3.906899511609838*^9, 3.906899629107677*^9, {3.906965882171465*^9, 
   3.9069659058428583`*^9}, {3.908631328843925*^9, 3.908631396625288*^9}, 
   3.908631686787847*^9, {3.908631793924966*^9, 3.9086318230930653`*^9}, 
   3.90863189858004*^9, 3.90863193778444*^9, {3.908631989171999*^9, 
   3.908631998381167*^9}, 3.908632053260825*^9, 3.90863212795955*^9, 
   3.945504594740323*^9, 3.945504660877186*^9, 3.945528471176998*^9, 
   3.945528631083048*^9, 3.9455286942036*^9, {3.945528755735035*^9, 
   3.9455287658401327`*^9}, 3.945529327184808*^9, 3.945685936730624*^9, 
   3.9459512096033077`*^9, 3.9459512705032663`*^9},
 CellLabel->
  "Out[1329]=",ExpressionUUID->"01330d2b-e873-40da-aef5-3a761f0dbf34"],

Cell[BoxData["0.1`"], "Output",
 CellChangeTimes->{
  3.8148159233692617`*^9, 3.814816051939197*^9, {3.814817234185486*^9, 
   3.81481726440084*^9}, 3.8148178509919567`*^9, 3.814817892057385*^9, 
   3.816988631814229*^9, 3.859218951639762*^9, {3.85921898314725*^9, 
   3.859219012964402*^9}, 3.859245622983602*^9, 3.8592458038205547`*^9, 
   3.859411641231347*^9, 3.859592377581122*^9, 3.862970479818007*^9, 
   3.8629710462525587`*^9, 3.865294741147482*^9, 3.865295223030109*^9, 
   3.868400644734564*^9, 3.870021490085889*^9, 3.870100832902237*^9, 
   3.906561883593306*^9, 3.906870003185787*^9, 3.90687047800576*^9, 
   3.9068712442209587`*^9, 3.906871383516279*^9, 3.906871419815462*^9, 
   3.906895904918644*^9, 3.90689779494075*^9, 3.906898049961928*^9, 
   3.906898808550292*^9, 3.906899121551506*^9, 3.906899370450749*^9, 
   3.906899511609838*^9, 3.906899629107677*^9, {3.906965882171465*^9, 
   3.9069659058428583`*^9}, {3.908631328843925*^9, 3.908631396625288*^9}, 
   3.908631686787847*^9, {3.908631793924966*^9, 3.9086318230930653`*^9}, 
   3.90863189858004*^9, 3.90863193778444*^9, {3.908631989171999*^9, 
   3.908631998381167*^9}, 3.908632053260825*^9, 3.90863212795955*^9, 
   3.945504594740323*^9, 3.945504660877186*^9, 3.945528471176998*^9, 
   3.945528631083048*^9, 3.9455286942036*^9, {3.945528755735035*^9, 
   3.9455287658401327`*^9}, 3.945529327184808*^9, 3.945685936730624*^9, 
   3.9459512096033077`*^9, 3.945951270504053*^9},
 CellLabel->
  "Out[1330]=",ExpressionUUID->"6f73ea37-e4b3-45a4-af5b-9c7b1196e19a"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.8148159233692617`*^9, 3.814816051939197*^9, {3.814817234185486*^9, 
   3.81481726440084*^9}, 3.8148178509919567`*^9, 3.814817892057385*^9, 
   3.816988631814229*^9, 3.859218951639762*^9, {3.85921898314725*^9, 
   3.859219012964402*^9}, 3.859245622983602*^9, 3.8592458038205547`*^9, 
   3.859411641231347*^9, 3.859592377581122*^9, 3.862970479818007*^9, 
   3.8629710462525587`*^9, 3.865294741147482*^9, 3.865295223030109*^9, 
   3.868400644734564*^9, 3.870021490085889*^9, 3.870100832902237*^9, 
   3.906561883593306*^9, 3.906870003185787*^9, 3.90687047800576*^9, 
   3.9068712442209587`*^9, 3.906871383516279*^9, 3.906871419815462*^9, 
   3.906895904918644*^9, 3.90689779494075*^9, 3.906898049961928*^9, 
   3.906898808550292*^9, 3.906899121551506*^9, 3.906899370450749*^9, 
   3.906899511609838*^9, 3.906899629107677*^9, {3.906965882171465*^9, 
   3.9069659058428583`*^9}, {3.908631328843925*^9, 3.908631396625288*^9}, 
   3.908631686787847*^9, {3.908631793924966*^9, 3.9086318230930653`*^9}, 
   3.90863189858004*^9, 3.90863193778444*^9, {3.908631989171999*^9, 
   3.908631998381167*^9}, 3.908632053260825*^9, 3.90863212795955*^9, 
   3.945504594740323*^9, 3.945504660877186*^9, 3.945528471176998*^9, 
   3.945528631083048*^9, 3.9455286942036*^9, {3.945528755735035*^9, 
   3.9455287658401327`*^9}, 3.945529327184808*^9, 3.945685936730624*^9, 
   3.9459512096033077`*^9, 3.945951270504863*^9},
 CellLabel->
  "Out[1331]=",ExpressionUUID->"82befbd3-a65c-45f5-b86a-4c632488fe48"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Figure4", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{"Fstarsg3", ",", 
      RowBox[{"{", 
       RowBox[{"beta", ",", "0.3", ",", "2"}], "}"}], ",", " ", 
      RowBox[{"PlotLabel", "\[Rule]", 
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<Force USA Credibly Threatens as a Function \\n of Congressional \
Support\>\"", ",", "11"}], "]"}]}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Congressional Support for Use of Military Force \\n (\[Beta]\!\
\(\*StyleBox[\")\",FontSlant->\"Italic\"]\)\>\"", ",", "11"}], "]"}], ",", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<\\n Force \\n \
(\!\(\*StyleBox[\"f\",FontSlant->\"Italic\"]\))\>\"", ",", "11"}], "]"}]}], 
        "}"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontSize", "\[Rule]", "10"}], ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Black"}], 
        "}"}]}], ",", 
      RowBox[{"ExclusionsStyle", "\[Rule]", 
       RowBox[{"{", "Dotted", "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{"FilePath", ",", "Figure4", ",", "\"\<PDF\>\""}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.945528595531632*^9, 3.945528607852564*^9}, {
  3.9455286634045467`*^9, 3.945528670480123*^9}, {3.945528724856995*^9, 
  3.945528735019248*^9}, {3.945951231655324*^9, 3.945951258791857*^9}},
 NumberMarks->False,
 CellLabel->
  "In[1332]:=",ExpressionUUID->"9f8e14b4-6ec8-49f1-81e7-8eba20773c37"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxF0ns01AkbB3CVYqU3l7YL9YaE6GJTWKpv65JIdptIhNVlRSlKsU0ld5aK
KCQVhSglVKwykWvlzoy5MGbcyiXM/MQk/Hbec96z85zznOd8/niec57nPOpH
fCh/zJWSkkoQ5//qxxq/gwYGrZD6f7jsWLeZZirxyAvuQmsLiRUeWL91c5DY
4dJqregAibv0PxK81xITtzVir1u0/eswBabnir0SL428ZpbhILHxOdHXvz0k
vmzX4NIXJbHMPKrutnqJky9skq6hS6w71tu5jyuxbeevN46PSnyjaK0oXpH+
rzU2cppXqYidZhj15eB2vMiIe5KtQUcQzXfPkPN5WKruCjfQo2Nnw6umNvsw
MG58d6MZiO2noxbLv4bjsvnG1tvoKIs2Eqx5nABRoIdSmwUdvEVxwvoDyVD1
bq4acKDDPbY0LaUqDRP0lzfW/y7uV6us3G3yEC1IcfXxpCOuawP0sjMRrXz0
6ziVjrTw+6GbfB9DVDKuKZVGR/GB3SbZ7Hy0/bA8bOkgHdnlosk9ySV47jf9
qxNBhxpr4YJjGa8R08lTTZ2m4/O0H0/x2RuY5ecUqi9mQO2LcI5rCQ3PD5r2
rN/CgOZp1W+jh8px9ZGbmXkgAyt3+ylGa1fBU9H8PxGRDCx3P+eRkVoF84va
7No4BuIWjiS0KVRjym7sjN1DBkS1L+XCJ6rhORGc7lTLgP3bLsfIolpYWGZK
+Sq141LzLmm6Uh1muodoqVntcPvLMSZVrRma9NnTZnntcK6yOWNp2wybGsXV
n4vaITqxLSo3oBmJT4yuGLxvh3Smv0FxfTP0z4Xiw1A7VjoX/cTyb8Gx+apl
k/pMTLUohNFLW1GnbVNOec1E/Aa79DoNBoQrXM+IKphw9q9f7WvFwAp5X/V7
dUxcZeku7T3JgMfYreCBTiYOGi/XwQsGpP7m/xIkxULqoztF9WbtMLC58O6p
JQv6VtsOZzkykeKdXSHbxEJiwHBB4xE2FrpDJpTJQsH2ZUseBLNxaT/DZobH
As1e8dW+NDbcTKRbBAIWlHaMN1h3srFG1p3HVmajW6E3O8OBg9yHy2ZyHdnQ
MJFdvX1nB2jsCMN9XWwMdj8tuzXbiU0Nq6gfP7ExN3PqdOQKLtLKX5RajrHB
qGhJdd3CRUh2t4XJHA4SaRZGxV5cWPnv2L9mDQcU2bireq1cNClO+Hz14GCj
b67T5vQu9Oz+I+f2CAfB16vP+t3i4d4mva6PkxyYh0inuz/gwXmpYMmsVAf8
bno+25nHQ1PPpaAjyh2YqdAuY9XyQAu86ahn3IE1U41rz37nIeVFxfzS4A68
Xql10c6ND4qaxhHekk6Yh2mvhWo3yia5KtqmXKQfLbWrON+Dao/WLW/Mubgd
Eptqe6UH9fQau322XLRydq5viOoBu/B5yEVXLsrXmZmU3OkB4RMy2HiFi4CF
l/SMynug9XltyZ+VXOTdOz1VJ9eLGKa304e9XRgasHLLSe7FE5eZj4b6POT5
1DR+S+tD26LFlM4tPMTk3VEMyenDNE2NGfozD64UlZx5BX2wVbfobTLj4W6u
95TwXR9G+qKnTzjwsNAxRD60tw/6Pss33KfyYBXy05iPVj9eBRtcl6kSz2fc
n8rP7EdZltdvTCc+5t19v8cp4RP0VA5Yygd24+LdpMNGGwcwnqhclnq9B7/I
D8ZTAgax4HJekN6rXrBUrWMOPR3Cee+VNUs/9GFroTF/xZNhmIb/EHiT2Q+W
bIrR7qgvsJGhUxVmPyFcdtjjvNsIiuLPzHxePABlnbmvWhVHcSpyuOqt8SCM
zn4+YlM+Cmrmp1kdlyG4vRnSjNk4ht66wtKRk8OoXSBSa/cdQ5Kr27uC+C94
fvJN2MuCMWRPsmxbM0cwFSOjtXVoDHO/G6wSNo7CTJOZn7lGAJayTN4+6hh0
wu2Cqw8IwHvmEs+cK4BtpYKxYqgAVwPTk7mJAjSUZllV5gnQ39LAV1IXgmqS
FJTPEGDYdNvRuGwh3HeOHKVOCZDISpa5ZkpALkk2s/u/Qox+7xwpqiSg73SR
WrdDiC8UpW+HncbxSsf0guPvQvFfR5g6DI1j4kp5kcdlIUae9ZT5+30F9a51
a2+SEIOtm7yWyUxAc8PSZ8qFQty6fMy+P24C8o8PDq78KMSQKStgdtkkJmbd
14fxhejfuJ126/EkGOHPn9wXCRGX9ZfVIQMReIYzdRqLCHApVcT9GhEMJ6VX
/aZBgBM60K1E+QY3y8X267YSCH2/V66R9Q0LNsm+bdtFoMk83V7u1JT4zgYP
tJwI1Jl18v0mpiBNlp4K9iLg7S8b7xLzHannJyP/pBIopvlRr6+ahkX1yjTP
aAKFMTWZI5nTWO9HT89NJkC5Jjde//MMdLe+zYp4RCBN2TCcUzEDw5MjicwX
BG4/S7fbvGcWx4Ku/OhdTsAocNpEljuLkraohOsNBMJacEL+OIkCu2IvFzaB
rPgzxr5eJD5EOOvGiV1Debig7SSJ09HvuivElmtd8PCOLwlG45CJHodAbGs9
R5dK4qo+O+qb2Clth/ZaXyORu46TerOTEP99gH5EIYnAO+MFlTzx/ok5swMv
SbzjK/lOii08wKnbW0zi7IMta3X5BLa07/D6sZSEsVp0QKzYJe3zH2RUk4iu
zX/j1E2gkpmgXMEioVmY9GG4h0B/chVfq4NEiqBBdnUvARmnybxoLol7KdrY
J7YNy9mW0kOiLsHi5kuxG1nq4fxhEtkMd97lPgJjt/fvtxwlEaXe3pUntpJz
uHqOgERH4uV2vtj27M+lvhNiOxzJs+wn4J+icrVNRCJxd0ZsgNhJzrbOxt9J
dBet8swRu1glUCd1hkSbf5MxR2w2O2+CJEmIHGlzFn0i8A9xRp4p
       "]]},
     Annotation[#, "Charting`Private`Tag$143535#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.30000000000000066`, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox[
       StyleBox[
       "\"\\n Force \\n \
(\\!\\(\\*StyleBox[\\\"f\\\",FontSlant->\\\"Italic\\\"]\\))\"", 11, 
        StripOnInput -> False], HoldForm], TraditionalForm], None}, {
     FormBox[
      TagBox[
       StyleBox[
       "\"Congressional Support for Use of Military Force \\n \
(\[Beta]\\!\\(\\*StyleBox[\\\")\\\",FontSlant->\\\"Italic\\\"]\\)\"", 11, 
        StripOnInput -> False], HoldForm], TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  LabelStyle->{FontSize -> 10, FontFamily -> "Times", 
    GrayLevel[0]},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    StyleBox[
    "\"Force USA Credibly Threatens as a Function \\n of Congressional \
Support\"", 11, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0.3, 2}, {0., 1.243908888636268}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.945504651092416*^9, 3.9455046610093403`*^9}, 
   3.945528471313257*^9, 3.945528631124443*^9, 3.945528694245657*^9, {
   3.945528755771365*^9, 3.945528765874756*^9}, 3.945529327221759*^9, 
   3.945685936765679*^9, 3.945951209622533*^9, 3.94595127052149*^9},
 CellLabel->
  "Out[1332]=",ExpressionUUID->"bdf1cb4f-123c-4bc1-8dc7-b7e5b8c768cf"],

Cell[BoxData["\<\"/Users/patrickhulme/Dropbox/Replicate/War_and_\
Responsibility/Output/Figure_4.pdf\"\>"], "Output",
 CellChangeTimes->{{3.945504651092416*^9, 3.9455046610093403`*^9}, 
   3.945528471313257*^9, 3.945528631124443*^9, 3.945528694245657*^9, {
   3.945528755771365*^9, 3.945528765874756*^9}, 3.945529327221759*^9, 
   3.945685936765679*^9, 3.945951209622533*^9, 3.945951270636801*^9},
 CellLabel->
  "Out[1333]=",ExpressionUUID->"16d4aab6-fa38-43cf-a28e-a11bf119df59"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"k", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"s", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"c", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"beta", " ", "=."}], "\[IndentingNewLine]", 
   RowBox[{"a", "=."}], "\[IndentingNewLine]", 
   RowBox[{"d", "=."}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.814664884269059*^9, 3.814664948310218*^9}, {
   3.814748091414303*^9, 3.814748146576082*^9}, {3.814748334865695*^9, 
   3.81474838446976*^9}, 3.8147484165193043`*^9, {3.814748481933243*^9, 
   3.814748494827571*^9}, {3.814814992883623*^9, 3.814814994639441*^9}, {
   3.9068959789005213`*^9, 3.906895981605139*^9}, {3.906965931418538*^9, 
   3.906965932845366*^9}, 3.908631682984509*^9, {3.945504567645433*^9, 
   3.945504572113048*^9}, 3.945504656611094*^9},
 CellLabel->
  "In[1334]:=",ExpressionUUID->"4e48cdff-ecdb-461e-9cd2-88f7a81c24d4"]
},
WindowSize->{Full, Full},
WindowMargins->{{15, Automatic}, {Automatic, -1}},
FrontEndVersion->"13.2 for Mac OS X ARM (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"e5fd7b28-3e85-48d8-abc6-933abf5c2f69"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 749, 18, 178, "Input",ExpressionUUID->"a97abf7b-cdfc-4a81-8ac8-2e39647e2bce"],
Cell[1332, 42, 439, 7, 48, "Output",ExpressionUUID->"d172ad9d-019a-4c11-8449-d121495e5336"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1808, 54, 1126, 25, 95, "Input",ExpressionUUID->"9343096e-8a71-443c-9610-f10a7a28083c"],
Cell[2937, 81, 1611, 31, 65, "Output",ExpressionUUID->"bf9db5bf-5fde-4c5c-9d4a-b718750469f3"]
}, Open  ]],
Cell[4563, 115, 326, 5, 30, "Input",ExpressionUUID->"bbaeda3e-0560-40a0-9502-37223576c581"],
Cell[CellGroupData[{
Cell[4914, 124, 1992, 41, 304, "Input",ExpressionUUID->"a1da13ca-4282-4846-bea1-3d36af441041"],
Cell[6909, 167, 3557, 51, 48, "Output",ExpressionUUID->"f9fcf4f2-69f5-481e-9756-2ee0d4e61d51"],
Cell[10469, 220, 3744, 58, 65, "Output",ExpressionUUID->"fbeb0f1c-3345-4788-b66f-a31bae6c1502"],
Cell[14216, 280, 3585, 52, 48, "Output",ExpressionUUID->"81a9b393-2115-47f0-910b-76db4239b3c3"],
Cell[17804, 334, 3583, 52, 48, "Output",ExpressionUUID->"b3bf8977-a3f5-4da4-8082-c067af6d571b"],
Cell[21390, 388, 3580, 52, 48, "Output",ExpressionUUID->"7bed4215-e7b5-42e2-9f65-ff44cb43e7d1"],
Cell[24973, 442, 3590, 52, 48, "Output",ExpressionUUID->"a0e705de-cd5b-4f39-8d5d-bdc96b735145"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28600, 499, 409, 10, 73, "Input",ExpressionUUID->"c1427634-d954-4191-b9a2-870dd1af56c0"],
Cell[29012, 511, 727, 12, 65, "Output",ExpressionUUID->"dab5e0be-dcad-4339-a2c7-473de471aac9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29776, 528, 474, 10, 94, "Input",ExpressionUUID->"d6e966f9-f993-44cd-80e9-4577c96e5d4e"],
Cell[30253, 540, 1825, 34, 74, "Output",ExpressionUUID->"8e3eb1d0-9ba9-4a03-8ee7-15fdd4dc8b71"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32115, 579, 604, 14, 94, "Input",ExpressionUUID->"f890d0a4-3f49-4f05-b0e2-c9071c71f847"],
Cell[32722, 595, 2192, 46, 82, "Output",ExpressionUUID->"8fa36b55-7eb9-4c7d-900f-f75651b4a9e4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34951, 646, 770, 21, 146, "Input",ExpressionUUID->"85aabfd1-343f-48c2-9707-4ab8acf5603d"],
Cell[35724, 669, 886, 21, 72, "Output",ExpressionUUID->"1dcb9c0f-55fb-436c-a6c1-7ecfbdd78681"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36647, 695, 285, 7, 52, "Input",ExpressionUUID->"49dfe995-6827-491e-908f-baca1303a32d"],
Cell[36935, 704, 1855, 33, 73, "Output",ExpressionUUID->"a6ac8735-3b95-4469-877e-21f3e5430ac7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38827, 742, 262, 7, 30, "Input",ExpressionUUID->"f7206a83-6240-4c38-aea4-83ef51aa96fd"],
Cell[39092, 751, 1965, 43, 95, "Output",ExpressionUUID->"da0aa629-524f-4ce0-bc50-e84ca7459b70"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41094, 799, 302, 7, 30, "Input",ExpressionUUID->"caeb1014-6c63-4bbd-9667-a1cf4706d9ad"],
Cell[41399, 808, 1525, 27, 73, "Output",ExpressionUUID->"8f8d818c-728b-498f-b71f-458e68c4934d"]
}, Open  ]],
Cell[42939, 838, 352, 6, 73, "Input",ExpressionUUID->"4c367a33-aa4f-4121-bf92-a4d3ff3cb040"],
Cell[CellGroupData[{
Cell[43316, 848, 407, 9, 52, "Input",ExpressionUUID->"0e1f29f5-cbe7-4060-ac1b-fed4f0510552"],
Cell[43726, 859, 1588, 27, 73, "Output",ExpressionUUID->"cfa319c8-880e-4b4f-afe3-a077bbbfb48f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45351, 891, 254, 6, 30, "Input",ExpressionUUID->"ea4d044a-ef98-4f02-8b0c-4086adef1586"],
Cell[45608, 899, 1031, 19, 73, "Output",ExpressionUUID->"497a4740-bedc-46ce-a5c9-2658b17ed253"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46676, 923, 684, 15, 157, "Input",ExpressionUUID->"f2ed2750-aded-4a73-a2a0-dbdab40473f8"],
Cell[47363, 940, 1536, 27, 73, "Output",ExpressionUUID->"f560270b-d0ab-44e2-8e3f-168297f1229f"]
}, Open  ]],
Cell[48914, 970, 232, 4, 73, "Input",ExpressionUUID->"bfe0bbba-e50f-4a9f-b534-1ee934392963"],
Cell[CellGroupData[{
Cell[49171, 978, 730, 18, 52, "Input",ExpressionUUID->"e4b5e3a7-3fb7-4b1a-9798-e878a4eb8a36"],
Cell[49904, 998, 1710, 33, 73, "Output",ExpressionUUID->"267034e1-3fb1-4698-a396-1c4895b1fb91"],
Cell[51617, 1033, 1719, 35, 72, "Output",ExpressionUUID->"fc767bfa-0af8-48df-9207-a577da829683"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53373, 1073, 1168, 21, 325, "Input",ExpressionUUID->"8663e7c4-4e37-4121-969a-233812f9a3fa"],
Cell[54544, 1096, 1535, 23, 48, "Output",ExpressionUUID->"57289ab9-6a82-47fd-a9be-18d177f11955"],
Cell[56082, 1121, 1536, 23, 48, "Output",ExpressionUUID->"d5e66b2f-d3d7-4cdd-a4fd-88bf1025b16b"],
Cell[57621, 1146, 1534, 23, 48, "Output",ExpressionUUID->"bd063ed0-86ae-4849-99d4-89ffd7188f49"],
Cell[59158, 1171, 1537, 23, 48, "Output",ExpressionUUID->"01330d2b-e873-40da-aef5-3a761f0dbf34"],
Cell[60698, 1196, 1535, 23, 48, "Output",ExpressionUUID->"6f73ea37-e4b3-45a4-af5b-9c7b1196e19a"],
Cell[62236, 1221, 1532, 23, 48, "Output",ExpressionUUID->"82befbd3-a65c-45f5-b86a-4c632488fe48"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63805, 1249, 1734, 42, 178, "Input",ExpressionUUID->"9f8e14b4-6ec8-49f1-81e7-8eba20773c37"],
Cell[65542, 1293, 5596, 117, 289, "Output",ExpressionUUID->"bdf1cb4f-123c-4bc1-8dc7-b7e5b8c768cf"],
Cell[71141, 1412, 481, 7, 48, "Output",ExpressionUUID->"16d4aab6-fa38-43cf-a28e-a11bf119df59"]
}, Open  ]],
Cell[71637, 1422, 1407, 23, 586, "Input",ExpressionUUID->"4e48cdff-ecdb-461e-9cd2-88f7a81c24d4"]
}
]
*)

